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-- LoadState.mesa 

-- Last Modified by Sandman, May 12, 1978 2:34 PM 

DIRECTORY 

AltoFileDefs: FROM "altof i1 edef s" USING [eofDA], 
InlineDefs: FROM "inlinedefs" USING [COPY], 
LoadStateDefs: FROM "loadstatedef s" USING [ 

BcdAddress, BcdArrayLength, ConfigGFI, Configlndex, ConfigNuH, 

EnumerationDirection, FileSegmentHandle, GFTIndex, LoadState, 

LoadStateGFT, Relocation], 
MiscDefs: FROM "miscdefs" USING [SetBlock, Zero], 
NucleusDefs: FROM "nucleusdef s" , 
SDDefs: FROM "sddefs" USING [SD, sGFTLength], 
SegmentDefs: FROM "segmentdef s" USING [ 

FileHandle, FileHint. FileSegmentAddress, GetFileFP, InsertFile, 

NewFileSegment, Read, Swapln, SwapOut, Unlock], 
SystemDefs: FROM "systemdefs" USING [AHocateHeapNode. FreeHeapNode] ; 

DEFINITIONS FROM LoadStateDefs; 

LoadState: PROGRAM [state, initstate, bcdseg: FileSegmentHandle] 
IMPORTS MiscDefs, SegmentDefs, SystemDefs 
EXPORTS LoadStateDefs, NucleusDefs = PUBLIC 

BEGIN 

loadstate: LoadState; 
gft: LoadStateGFT; 
nbcds: Configlndex; 

LoadStateFun : ERROR = CODE; 

InputLoadState: PROCEDURE RETURNS [Configlndex] « 
BEGIN OPEN SegmentDefs; 
i: GFTIndex; 
Swapln[state]; 

loadstate *- Fi1eSegmentAddress[state] ; 

gft <r DESCRIPT0R[@1oadstate.gft, SDDefs .SD[SDDefs . sGFTLength]]; 
nbcds ♦- 0; 
FOR i IN [O..LENGTH[gft]) DO 

IF gft[i].config # ConfigNull THEN nbcds <- MAX[nbcds, gf t[i].conf ig]; 

ENDLOOP; 
nbcds ♦- nbcds + 1; 
RETURN[nbcds] 
END; 

UpdateLoadState: PROCEDURE [ 
bed: Configlndex, bcdseg: FileSegmentHandle, unresolved, exports: BOOLEAN] 
BEGIN OPEN SegmentDefs; 

IF bed >= LAST[ConfigIndex] THEN ERROR LoadStateFull ; 
loadstate .bcds[bcd] «- 

[fp:, da:, base: bcdseg. base, unresolved: unresolved, 

fill:, exports: exports, pages: bcdseg. pages] ; 
loadstate. bcds[bcd]. da <- WITH s: bcdseg SELECT FROM 

disk => s. hint. da, 

ENDCASE «> AltoFileDefs, eofDA; 
GetFileFP [bcdseg. file. @loadstate.bcds[bcd] .fp]; 
nbcds <- nbcds + 1; 
END; 

RemoveConf ig: PUBLIC PROCEDURE [rel: Relocation, config: Configlndex] » 
BEGIN 

i: CARDINAL; 
FOR i IN [1. .LENGTH[gft]) DO 

IF gft[i]. config > config AND gft[i] . config # ConfigNull THEN 
gft[i] .config <- gft[i]. config - 1; 

ENDLOOP; 
FOR i IN [1. ,LENGTH[rel]) DO 

gft[rel[i]] <- Conf igGFI[Conf igNul 1 , 0]; ENDLOOP; 
FOR i IN [conf ig. .nbcds) DO 

loadstate. bcds[i] *- loadstate. bcds[i+l] ; 

ENDLOOP; 
END; 

ReleaseLoadState: PROCEDURE » 
BEGIN OPEN SegmentDefs; 
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IF -state. swappedin THEN RETURN; 

Unlock[state]; 

IF state. lock - THEN 

BEGIN 

SwapOut[state]; 

loadstate ^ NIL; 

nbcds <" 0; 

END; 
END; 

EnterGfi: PROCEDURE [cgfi, rgfi: GFTIndex, config: Configlndex] » 
BEGIN 

gft[rgfi] ^ [config: config, gfi: cgfi]; 
END; 

MapConfigToReal : PROCEDURE [cgfi: GFTIndex, config: Configlndex] RETURNS [rgfi: GFTIndex] - 
BEGIN 

IF cgfi = THEN RETURN[0]; 
FOR rgfi IN [0 . .LENGTH[gf t]) DO 

IF gft[rgfi] = [config. cgfi] THEN RETURN [rgfi]; 
ENDLOOP; 
RETURN[0]; 
END; 

MapRealToConfig: PROCEDURE [rgfi: GFTIndex] RETURNS [cgfi: GFTIndex, config: Configlndex] « 
BEGIN 

RETURN[gft[rgfi].gfi. gft[rgfi] .config]; 
END; 

InitializeRelocation: PROCEDURE [config: Configlndex] RETURNS [rel: Relocation] « 
BEGIN 

max: CARDINAL <- 0; 
i: GFTIndex; 
FOR i IN [O..LENGTH[gft]) DO 

IF gft[i]. config = config THEN max *- MAX[max, gft[i].gfi]; 

ENDLOOP; 
rel *- DESCRIPTOR[SystemDefs.AllocateHeapNode[max+l]. max+1]; 
MiscDefs.Zero[BASE[rel]. max+1]; 
FOR i IN [O..LENGTH[gft]) DO 

IF gft[i]. config » config THEN rel [gf t[i] . gf i] <- i; 

ENDLOOP; 
END; 

ReleaseRelocation: PROCEDURE [rel: Relocation] » 
BEGIN 

SystemDefs.FreeHeapNode[BASE[rel]]; 
END; 

BcdSegFromLoadState: PROCEDURE [bed: Configlndex] RETURNS [seg: FileSegmentHandle] « 
BEGIN OPEN SegmentDefs, b: loadstate . bcds[bcd] ; 
bcdfile: FileHandle <- InsertFile[@b . fp , Read]; 
seg <- NewFileSegment[bcdf ile, b.base, b. pages, Read]; 
IF b.da ff AltoFileDefs.eofDA THEN 
WITH s: seg SELECT FROM 

disk => s.hint <- SegmentDefs. FileHint[b. da, b.base]; 

ENDCASE; 
RETURN 
END; 

UpdateLoadStateDA: PROCEDURE [bcdseg: FileSegmentHandle] « 
BEGIN OPEN SegmentDefs; 

FindSeg: PROCEDURE [c: Configlndex, b: BcdAddress] RETURNS [BOOLEAN] - 
BEGIN 

IF b.base - bcdseg. base AND b. pages ~ bcdseg. pages 
AND b.fp « bcdseg. file, fp THEN 
BEGIN 
WITH s: bcdseg SELECT FROM 

disk «> IF s. hint. da ff AltoFileDefs.eofDA THEN b.da ♦- s, hint. da; 
ENDCASE; 
RETURN[TRUE]; 
END; 
RETURN[FALSE]; 
END; 
IF loadstate » NIL THEN RETURN; -- loadstate not in 
[] ♦- EnumerateLoadStateBcds[recentf irst , FindSeg]; 
RETURN 
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END; 

EnumerateLo^dStateGFT: PROCEDURE [ 
proc: PROCEDURE [GFTIndex, GFTIndex, Configlndex] RETURNS [BOOLEAN]] 
RETURNS [GFTIndex] « 
BEGIN 

i: GFTIndex; 
FOR i IN [0. .LENGTH[gft]) DO 

IF proc[i, gft[i].gfi, gf t[i] .conf ig] THEN RETURN[i]; 
ENDLOOP; 
RETURN[0] 
END; 

EnumerateLoadStateBcds: PROCEDURE [dir: EnumerationDirection » 
proc: PROCEDURE [Configlndex. BcdAddress] RETURNS [BOOLEAN]] 
RETURNS [config: Configlndex, bed: BcdAddress] ■ 
BEGIN 

i: CARDINAL; 
SELECT dir FROM 
recentf irslj "^ 

FOR i DECREASING IN [0..nbcds) DO 

IF proc[i, @1oadstate.bcds[i]] THEN RETURN[i, @loadstate.bcds[i]] ; 
ENDLOOP; 
recentlast ■> 

FOR i IN [0. .nbcds) DO 

IF proc[i. @1oadstate.bcds[i]] THEN RETURN[i, @loadstate.bcds[i]] ; 
ENDLOOP; 
ENDCASE; 
RETURN[ConfigNull, NIL] 
END; 

BcdHasUnresolvedlmports: PROCEDURE [bed: Configlndex] RETURNS [BOOLEAN] = 
BEGIN 

RETURN[1oadstate.bcds[bcd], unresolved]; 
END; 

SetUnresolvedlmports: PROCEDURE [bed: Configlndex, unresolved: BOOLEAN] » 
BEGIN 

loadstate.bcds[bcd] .unresolved <- unresolved; 
END; 

BcdHasExports: PROCEDURE [bed: Configlndex] RETURNS [BOOLEAN] » 
BEGIN 

RETURN[loadstate. beds [bed]. exports]; 
END; 

SetLoadState: PROCEDURE [stateseg: FileSegmentHandle] - 
BEGIN 

state ^ stateseg; 
END; 

GetLoadState: PROCEDURE RETURNS [FileSegmentHandle] » 
BEGIN 

RETURN[state]; 
END; 

GetlnitialLoadState: PROCEDURE RETURNS [FileSegmentHandle] « 
BEGIN 

RETURN[initstate]; 
END; 

ResetLoadState: PROCEDURE [initialGFT: LoadStateGFT] « 
BEGIN 

MiscDef s .Zero[loadstate, Bed Array Length]; 
MiscDefs.SetBloek[ 

p: Qloadstate.gf t, 

v: Conf igGFI[config: ConfigNull, gf i : 0], 

1: LENGTH[gft]]; 
InlineDefs,COPY[ 

from: BASE[initialGFT] , to: BASE[gft]. nwords: LENGTH[gf t]]; 
nbcds *- 0; 
END; 

InitLoadStateObject: PROCEDURE « 
BEGIN OPEN SegmentDefs; 
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initloadstate: LoadState ^ FileSegmentAddress[initstat9]; 

loadstate *- Fi1eSegmentAddress[stat8] ; 

gft ^ DESCRIPT0R[61oadstate.gft, SDDef s .SD[SDDef s.sGFTLength]]; 

In1ineDefs.C0PY[ 

from: ini tloadstate, to: loadstate, nwords: LENGTH[gft]+BcdArrayLength] ; 
loadstate. bcds[0].fp ♦- bcdseg.f ile.f p; 
loadstate. bcds[0]. base <- bcdseg.base; 
WITH s: bcdseg SELECT FROM 

disk ■> loadstate. bcds[0]. da <- s. hint. da; 

ENDCASE; 
R8leaseLoadState[]; 
Unlock[initstate] ; 
SwapOut[initstate]: 
END; 

-- Main Body 

InitLoadStateObject[]; 

END.. 



